(Fbyte_code) <Bgeq>: Add BEFORE_POTENTIAL_GC and

AFTER_POTENTIAL_GC.

diff --git a/src/bytecode.c b/src/bytecode.c
index 7cd38a0fe2e64798a61b28c68c776c94d27d2f3e..f2394556e2b42881bad72df32d0cfed66313693d 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1193,8 +1193,10 @@ If the third argument is incorrect, Emacs may crash.")
        case Bgeq:
          {
            Lisp_Object v1;
+           BEFORE_POTENTIAL_GC ();
            v1 = POP;
            TOP = Fgeq (TOP, v1);
+           AFTER_POTENTIAL_GC ();
            break;
          }